home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / e-lang / dirlist.lha / dirlist / examples / DirList_Example3.e < prev   
Text File  |  1996-05-02  |  984b  |  52 lines
  1. /*
  2. ** DirList_Example 3
  3. **
  4. ** Methods: setdir(), read(), sort(), first(), obj()
  5. **          succ(), dirname(), tagset()
  6. **
  7. **
  8. ** This code is placed in Public Domain
  9. **
  10. ** (C)Copyright 1996 Fabio Rotondo
  11. **
  12. */
  13.  
  14.  
  15. MODULE 'Fabio/DirList_oo',       -> Our MAGIC MODULE!
  16.        'tools/exceptions'
  17.  
  18. PROC main() HANDLE
  19.   DEF dl:PTR TO dirlist
  20.  
  21.   NEW dl.dirlist()
  22.  
  23.  
  24.   dl.tagset([TAGDIR_COMPLETEPATH, TRUE, -> We want TO store the complete path
  25.               TAGDIR_MARKDIR, TRUE,     -> AND we want DirList TO mark dirs
  26.               0,0
  27.              ])
  28.  
  29.  
  30.  
  31.   dl.setdir('ram:')      -> We'll scan RAM:
  32.   WriteF('Reading...\n')
  33.   dl.read(TRUE, TRUE)    -> Here we read it
  34.   WriteF('Sorting!\n')
  35.   dl.sort(TRUE)          -> AND here we sort it
  36.  
  37.   WriteF('Done!\n')
  38.  
  39.   IF dl.first()          -> Let's show!
  40.     REPEAT
  41.       WriteF('\s\n',dl.obj())
  42.     UNTIL dl.succ()=FALSE
  43.   ENDIF
  44.  
  45.   WriteF('DIR:\s\n', dl.dirname())  -> Actual dir name is this
  46.  
  47. EXCEPT DO
  48.   report_exception()
  49.   END dl
  50. ENDPROC
  51.  
  52.